home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 May / EnigmA AMIGA RUN 07 (1996)(G.R. Edizioni)(IT)[!][issue 1996-05][EARSAN CD VI].iso / progs / s / xtruder / examples / xtruder_checkfiles.rexx next >
OS/2 REXX Batch file  |  1996-02-12  |  455b  |  28 lines
  1. /*
  2. ** 'CheckFiles' example
  3. */
  4.  
  5. Options Results
  6.  
  7. Address XTRUDER
  8.  
  9. CheckFiles '"dh3:virus/w"'
  10.  
  11. IF RC < 0 THEN
  12.    Say 'Error 'RC' occured!'
  13. ELSE IF RC = 0 THEN
  14.    Say 'No vira found in checked files'
  15. ELSE IF RC > 0 THEN
  16.    DO
  17.    Say 'Number of vira found: ' RC
  18.    Say ''
  19.      DO x=1 to RC
  20.        GetVirusName x
  21.        Say 'Virus name:     ' result''
  22.  
  23.        GetVirusFileName x
  24.        Say 'Virus file name:' result''
  25.        Say ''
  26.      END
  27.     END
  28.